#转置
cars <- mtcars[1:5, 1:4]
cars
t(cars)
cars

#整合数据
#，Group.1表示汽缸数量（4、6或8），Group.2代表挡位数（3、4或5）。
#举例来说,拥有4个汽缸和3个挡位车型的每加仑汽油行驶英里数（mpg）均值为21.5。
#by中的变量必须在一个列表中（即使只有一个变量）
attach(mtcars)
aggdata <-aggregate(mtcars, by=list(cyl,gear), 
                    FUN=mean, na.rm=TRUE)
aggdata
detach(mtcars)

#reshape包
ID <- c(1,1,2,2)
Time <- c(1,2,1,2)
X1 <- c(5,3,6,2)
X2 <- c(6,5,1,4)
mydata <- data.frame(ID,Time,X1,X2,stringsAsFactors=FALSE )
mydata

#install.packages("reshape")
library(reshape)
md <- melt(mydata, id=(c("ID", "Time")))
md <- melt(mydata, id=(c("ID", "X1")))
md
#重塑
cast(md,ID+Time~variable)
cast(md,ID+variable~Time)
cast(md,ID~variable+Time)
#不演示
# cast(md, ID~variable,mean)
# cast(md,Time~variable,mean)
# cast(md,ID~Time,mean)

data <- mtcars[1:5,1:4]
data
t(data)
